# calculate
xs.team.vt <- team.score(df = xs.results, event = "Vault")
colnames(xs.team.vt)[2] <- "Vault"
xs.team.bars <- team.score(df = xs.results, event = "Bars")
colnames(xs.team.bars)[2] <- "Bars"
xs.team.beam <- team.score(df = xs.results, event = "Beam")
colnames(xs.team.beam)[2] <- "Beam"
xs.team.fx <- team.score(df = xs.results, event = "Floor")
colnames(xs.team.fx)[2] <- "Floor"
xs.team.score <- merge.data.frame(xs.team.vt, xs.team.bars) %>%
merge.data.frame(., xs.team.beam) %>%
merge.data.frame(., xs.team.fx) %>%
mutate(Team.Score = rowSums(across(where(is.numeric)))) %>%
mutate(Rank = dense_rank(desc(Team.Score))) %>%
arrange(Rank) %>%
relocate(Rank, Team, Team.Score)
datatable(xs.team.score, extensions = 'Buttons',
options = list(dom = 'Bfrtip', buttons = c('copy', 'csv', 'excel', 'pdf', 'print')))# calculate
xp.team.vt <- team.score(df = xp.results, event = "Vault")
colnames(xp.team.vt)[2] <- "Vault"
xp.team.bars <- team.score(df = xp.results, event = "Bars")
colnames(xp.team.bars)[2] <- "Bars"
xp.team.beam <- team.score(df = xp.results, event = "Beam")
colnames(xp.team.beam)[2] <- "Beam"
xp.team.fx <- team.score(df = xp.results, event = "Floor")
colnames(xp.team.fx)[2] <- "Floor"
xp.team.score <- merge.data.frame(xp.team.vt, xp.team.bars) %>%
merge.data.frame(., xp.team.beam) %>%
merge.data.frame(., xp.team.fx) %>%
mutate(Team.Score = rowSums(across(where(is.numeric)))) %>%
mutate(Rank = dense_rank(desc(Team.Score))) %>%
arrange(Rank) %>%
relocate(Rank, Team, Team.Score)
datatable(xp.team.score, extensions = 'Buttons',
options = list(dom = 'Bfrtip', buttons = c('copy', 'csv', 'excel', 'pdf', 'print')))# calculate
l8.team.vt <- team.score(df = l8.results, event = "Vault")
colnames(l8.team.vt)[2] <- "Vault"
l8.team.bars <- team.score(df = l8.results, event = "Bars")
colnames(l8.team.bars)[2] <- "Bars"
l8.team.beam <- team.score(df = l8.results, event = "Beam")
colnames(l8.team.beam)[2] <- "Beam"
l8.team.fx <- team.score(df = l8.results, event = "Floor")
colnames(l8.team.fx)[2] <- "Floor"
l8.team.score <- merge.data.frame(l8.team.vt, l8.team.bars) %>%
merge.data.frame(., l8.team.beam) %>%
merge.data.frame(., l8.team.fx) %>%
mutate(Team.Score = rowSums(across(where(is.numeric)))) %>%
mutate(Rank = dense_rank(desc(Team.Score))) %>%
arrange(Rank) %>%
relocate(Rank, Team, Team.Score)
datatable(l8.team.score, extensions = 'Buttons',
options = list(dom = 'Bfrtip', buttons = c('copy', 'csv', 'excel', 'pdf', 'print')))